home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 March / Ahoy_Magazine_87-03_1987_Double_L.d64 / Stow Away (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  86 lines
  1. 10 rem *** stow away *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=52000:l=100
  4. 40 printchr$(19)tab(31)l:print:forb=0to11:reada:ifa<0ora>255then60
  5. 50 pokej+b,a:x=x+a:nextb:reada:ifa=xthen70
  6. 60 print"error in data line:"l:end
  7. 70 x=0:j=j+12:l=l+10:ifl<851then40
  8. 80 print"the data is ok and loaded...":print
  9. 90 print"sys 52000 to activate...":end
  10. 100 data173,2,3,174,3,3,201,67,208,5,224,203,1266
  11. 110 data208,1,96,141,162,206,142,163,206,169,27,160,1681
  12. 120 data206,32,30,171,169,67,162,203,76,186,204,32,1538
  13. 130 data96,165,173,0,2,201,65,144,55,201,91,176,1369
  14. 140 data51,173,1,2,208,46,169,255,160,204,32,30,1331
  15. 150 data171,32,228,255,201,49,144,249,201,53,176,245,2004
  16. 160 data72,32,233,204,104,201,49,208,96,160,1,177,1537
  17. 170 data43,208,16,32,241,204,169,188,160,205,32,30,1528
  18. 180 data171,76,116,164,76,134,164,173,164,206,240,10,1694
  19. 190 data32,248,204,169,238,160,205,32,204,204,169,100,1965
  20. 200 data160,206,32,30,171,32,53,204,140,165,206,32,1431
  21. 210 data77,204,173,165,206,240,6,32,151,204,76,163,1697
  22. 220 data203,32,195,204,162,14,142,164,206,181,43,157,1703
  23. 230 data168,206,202,16,248,32,53,204,32,77,204,161,1603
  24. 240 data251,129,253,32,151,204,76,196,203,201,50,208,1954
  25. 250 data76,173,164,206,208,10,32,241,204,169,200,160,1843
  26. 260 data205,76,126,203,160,1,177,43,240,10,32,248,1521
  27. 270 data204,169,247,160,205,32,204,204,169,113,160,206,2073
  28. 280 data32,30,171,32,195,204,141,165,206,162,14,189,1541
  29. 290 data168,206,149,43,202,16,248,32,53,204,160,53,1534
  30. 300 data120,32,70,204,32,77,204,161,253,129,251,32,1565
  31. 310 data151,204,76,20,204,201,51,240,95,173,162,206,1783
  32. 320 data174,163,206,32,186,204,169,46,160,206,76,129,1751
  33. 330 data204,165,43,166,44,133,251,134,252,162,0,160,1714
  34. 340 data160,134,253,132,254,96,169,47,133,0,132,1,1511
  35. 350 data96,165,251,197,45,208,249,165,252,197,46,208,2079
  36. 360 data243,173,165,206,240,6,169,0,141,165,206,96,1810
  37. 370 data104,104,160,55,120,32,70,204,88,169,128,160,1394
  38. 380 data206,32,30,171,173,167,206,174,166,206,32,205,1768
  39. 390 data189,169,153,160,206,32,30,171,76,116,164,104,1570
  40. 400 data104,160,55,120,32,70,204,88,169,66,160,206,1434
  41. 410 data76,129,204,238,166,206,208,3,238,167,206,230,2071
  42. 420 data251,208,4,230,252,240,224,230,253,208,14,230,2344
  43. 430 data254,240,216,165,254,201,192,208,4,169,224,133,2260
  44. 440 data254,96,120,141,2,3,142,3,3,88,96,169,1117
  45. 450 data0,141,166,206,141,167,206,96,32,30,171,169,1525
  46. 460 data3,160,206,32,30,171,32,228,255,201,89,240,1647
  47. 470 data12,201,78,208,245,32,233,204,104,104,76,116,1613
  48. 480 data164,32,210,255,169,13,76,210,255,169,161,160,1874
  49. 490 data205,76,30,171,169,209,160,205,76,30,171,147,1649
  50. 500 data29,29,29,29,29,29,29,29,29,29,29,29,348
  51. 510 data29,29,18,32,83,84,79,87,32,65,87,65,690
  52. 520 data89,32,13,17,17,49,41,32,42,32,83,84,531
  53. 530 data79,87,32,65,32,80,82,79,71,82,65,77,831
  54. 540 data32,42,13,17,50,41,32,42,32,83,65,76,525
  55. 550 data86,65,71,69,32,65,32,80,82,79,71,82,814
  56. 560 data65,77,32,42,13,17,51,41,32,42,32,82,526
  57. 570 data69,84,85,82,78,32,84,79,32,66,65,83,839
  58. 580 data73,67,32,42,13,17,52,41,32,42,32,68,511
  59. 590 data69,65,67,84,73,86,65,84,69,32,83,84,861
  60. 600 data79,87,32,65,87,65,89,32,42,13,17,87,695
  61. 610 data72,65,84,32,87,79,85,76,68,32,89,79,848
  62. 620 data85,32,76,73,75,69,32,84,79,32,68,79,784
  63. 630 data63,32,210,157,0,17,89,79,85,32,68,79,911
  64. 640 data78,39,84,32,72,65,86,69,32,65,32,80,734
  65. 650 data82,79,71,82,65,77,32,0,73,78,32,77,748
  66. 660 data69,77,79,82,89,46,13,0,83,84,79,87,788
  67. 670 data69,68,46,13,0,17,89,79,85,32,65,76,639
  68. 680 data82,69,65,68,89,32,72,65,86,69,32,65,794
  69. 690 data32,80,82,79,71,82,65,77,32,0,83,84,767
  70. 700 data79,87,69,68,46,13,0,73,78,32,77,69,691
  71. 710 data77,79,82,89,46,13,0,17,65,82,69,32,651
  72. 720 data89,79,85,32,83,85,82,69,63,32,40,89,828
  73. 730 data47,78,41,32,210,157,0,17,83,84,79,87,915
  74. 740 data32,65,87,65,89,32,73,83,32,79,78,46,761
  75. 750 data13,0,17,83,84,79,87,32,65,87,65,89,701
  76. 760 data32,73,83,32,79,70,70,46,13,0,17,84,599
  77. 770 data72,69,32,76,69,78,71,84,72,32,69,88,812
  78. 780 data67,69,69,68,83,32,49,54,51,56,52,32,682
  79. 790 data66,89,84,69,83,46,13,0,17,83,84,79,713
  80. 800 data87,73,78,71,46,46,46,13,0,17,83,65,625
  81. 810 data76,86,65,71,73,78,71,46,46,46,13,0,671
  82. 820 data17,68,79,78,69,46,46,46,13,17,84,72,635
  83. 830 data69,32,76,69,78,71,84,72,32,73,83,32,771
  84. 840 data0,32,66,89,84,69,83,46,13,0,66,67,615
  85. 850 data0,0,80,67,10,0,0,0,0,0,0,0,157
  86.